home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / ERAS / ERAS.CST / 00127_Script_127 < prev    next >
Text File  |  1997-07-24  |  750b  |  22 lines
  1. --on dirFileForEraCode eraCode -- returns platform-specific filename for next era movie
  2. --  --  set pctestmode = 1
  3. --  
  4. --  
  5. --  -- select path separator
  6. --  -- or pctestmode 
  7. --  if the machinetype <> 256 then set pathSep = ":"
  8. --  else set pathSep = "\"
  9. --  
  10. --  -- set new director movie filename
  11. --  set head = the moviepath
  12. --  --  set head = "D:\PB\ERAS\TY\"
  13. --  delete the last char of head
  14. --  set theItemDelimiter = the itemdelimiter
  15. --  set the itemdelimiter = pathSep
  16. --  delete the last item of head
  17. --  set nextEraMovieName = head & pathSep & eraCode & pathSep & "ERA_" & eraCode & ".DIR"
  18. --  --  alert nextEraMovieName -- debug *&*
  19. --  set the itemdelimiter = theitemdelimiter
  20. --  
  21. --  return nextEraMovieName
  22. --end